home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / tex31 / texsrc.lzh / TEXSRC.LZH / tex16.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-28  |  7.3 KB  |  282 lines
  1. #define EXTERN extern
  2. #include "texd.h"
  3.  
  4. void giveerrhelp ( ) 
  5. {giveerrhelp_regmem 
  6.   tokenshow ( eqtb [ 4321 ] .hh .v.RH ) ; 
  7. } 
  8. boolean openfmtfile ( ) 
  9. {/* 40 10 */ register boolean Result; openfmtfile_regmem 
  10.   integer j  ; 
  11.   j = curinput .locfield ; 
  12.   if ( buffer [ curinput .locfield ] == 38 ) 
  13.   {
  14.     incr ( curinput .locfield ) ; 
  15.     j = curinput .locfield ; 
  16.     buffer [ last ] = 32 ; 
  17.     while ( buffer [ j ] != 32 ) incr ( j ) ; 
  18.     packbufferedname ( 0 , curinput .locfield , j - 1 ) ; 
  19.     if ( wopenin ( fmtfile ) ) 
  20.     goto lab40 ; 
  21.     wakeupterminal () ; 
  22.     (void) fprintf( stdout , "%s%s\n",  "Sorry, I can't find that format;" ,     " will try the default." ) ; 
  23.     flush ( stdout ) ; 
  24.   } 
  25.   packbufferedname ( formatdefaultlength - 4 , 1 , 0 ) ; 
  26.   if ( ! wopenin ( fmtfile ) ) 
  27.   {
  28.     wakeupterminal () ; 
  29.     (void) fprintf( stdout , "%s\n",  "I can't find the default format file!" ) ; 
  30.     Result = false ; 
  31.     return(Result) ; 
  32.   } 
  33.   lab40: curinput .locfield = j ; 
  34.   Result = true ; 
  35.   return(Result) ; 
  36. } 
  37. void closefilesandterminate ( ) 
  38. {closefilesandterminate_regmem 
  39.   integer k  ; 
  40.   {register integer for_end; k = 0 ; for_end = 15 ; if ( k <= for_end) do 
  41.     if ( writeopen [ k ] ) 
  42.     aclose ( writefile [ k ] ) ; 
  43.   while ( k++ < for_end ) ; } 
  44.     ;
  45. #ifdef STAT
  46.   if ( eqtb [ 6194 ] .cint > 0 ) 
  47.   if ( logopened ) 
  48.   {
  49.     (void) fprintf( logfile , "%c\n",  ' ' ) ; 
  50.     (void) fprintf( logfile , "%s%s\n",  "Here is how much of TeX's memory" , " you used:" ) ; 
  51.     (void) fprintf( logfile , "%c%ld%s",  ' ' , (long)strptr - initstrptr , " string" ) ; 
  52.     if ( strptr != initstrptr + 1 ) 
  53.     (void) putc( 's' ,  logfile );
  54.     (void) fprintf( logfile , "%s%ld\n",  " out of " , (long)maxstrings - initstrptr ) ; 
  55.     (void) fprintf( logfile , "%c%ld%s%ld\n",  ' ' , (long)poolptr - initpoolptr ,     " string characters out of " , (long)poolsize - initpoolptr ) ; 
  56.     (void) fprintf( logfile , "%c%ld%s%ld\n",  ' ' , (long)lomemmax - memmin + memend - himemmin + 2 ,     " words of memory out of " , (long)memend + 1 - memmin ) ; 
  57.     (void) fprintf( logfile , "%c%ld%s%ld\n",  ' ' , (long)cscount ,     " multiletter control sequences out of " , (long)3000 ) ; 
  58.     (void) fprintf( logfile , "%c%ld%s%ld%s",  ' ' , (long)fmemptr , " words of font info for " , (long)fontptr - 0     , " font" ) ; 
  59.     if ( fontptr != 1 ) 
  60.     (void) putc( 's' ,  logfile );
  61.     (void) fprintf( logfile , "%s%ld%s%ld\n",  ", out of " , (long)fontmemsize , " for " , (long)fontmax - 0 ) ; 
  62.     (void) fprintf( logfile , "%c%ld%s",  ' ' , (long)hyphcount , " hyphenation exception" ) ; 
  63.     if ( hyphcount != 1 ) 
  64.     (void) putc( 's' ,  logfile );
  65.     (void) fprintf( logfile , "%s%ld\n",  " out of " , (long)307 ) ; 
  66.     (void) fprintf( logfile , "%c%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%c\n",  ' ' , (long)maxinstack , "i," , (long)maxneststack , "n," ,     (long)maxparamstack , "p," , (long)maxbufstack + 1 , "b," , (long)maxsavestack + 6 ,     "s stack positions out of " , (long)stacksize , "i," , (long)nestsize , "n," ,     (long)paramsize , "p," , (long)bufsize , "b," , (long)savesize , 's' ) ; 
  67.   } 
  68. #endif /* STAT */
  69.   wakeupterminal () ; 
  70.   while ( curs > -1 ) {
  71.       
  72.     if ( curs > 0 ) 
  73.     {
  74.       dvibuf [ dviptr ] = 142 ; 
  75.       incr ( dviptr ) ; 
  76.       if ( dviptr == dvilimit ) 
  77.       dviswap () ; 
  78.     } 
  79.     else {
  80.     
  81.       {
  82.     dvibuf [ dviptr ] = 140 ; 
  83.     incr ( dviptr ) ; 
  84.     if ( dviptr == dvilimit ) 
  85.     dviswap () ; 
  86.       } 
  87.       incr ( totalpages ) ; 
  88.     } 
  89.     decr ( curs ) ; 
  90.   } 
  91.   if ( totalpages == 0 ) 
  92.   printnl ( 830 ) ; 
  93.   else {
  94.       
  95.     {
  96.       dvibuf [ dviptr ] = 248 ; 
  97.       incr ( dviptr ) ; 
  98.       if ( dviptr == dvilimit ) 
  99.       dviswap () ; 
  100.     } 
  101.     dvifour ( lastbop ) ; 
  102.     lastbop = dvioffset + dviptr - 5 ; 
  103.     dvifour ( 25400000L ) ; 
  104.     dvifour ( 473628672L ) ; 
  105.     preparemag () ; 
  106.     dvifour ( eqtb [ 6180 ] .cint ) ; 
  107.     dvifour ( maxv ) ; 
  108.     dvifour ( maxh ) ; 
  109.     {
  110.       dvibuf [ dviptr ] = maxpush / 256 ; 
  111.       incr ( dviptr ) ; 
  112.       if ( dviptr == dvilimit ) 
  113.       dviswap () ; 
  114.     } 
  115.     {
  116.       dvibuf [ dviptr ] = maxpush % 256 ; 
  117.       incr ( dviptr ) ; 
  118.       if ( dviptr == dvilimit ) 
  119.       dviswap () ; 
  120.     } 
  121.     {
  122.       dvibuf [ dviptr ] = totalpages / 256 ; 
  123.       incr ( dviptr ) ; 
  124.       if ( dviptr == dvilimit ) 
  125.       dviswap () ; 
  126.     } 
  127.     {
  128.       dvibuf [ dviptr ] = totalpages % 256 ; 
  129.       incr ( dviptr ) ; 
  130.       if ( dviptr == dvilimit ) 
  131.       dviswap () ; 
  132.     } 
  133.     while ( fontptr > 0 ) {
  134.     
  135.       if ( fontused [ fontptr ] ) 
  136.       dvifontdef ( fontptr ) ; 
  137.       decr ( fontptr ) ; 
  138.     } 
  139.     {
  140.       dvibuf [ dviptr ] = 249 ; 
  141.       incr ( dviptr ) ; 
  142.       if ( dviptr == dvilimit ) 
  143.       dviswap () ; 
  144.     } 
  145.     dvifour ( lastbop ) ; 
  146.     {
  147.       dvibuf [ dviptr ] = 2 ; 
  148.       incr ( dviptr ) ; 
  149.       if ( dviptr == dvilimit ) 
  150.       dviswap () ; 
  151.     } 
  152.     k = 4 + ( ( dvibufsize - dviptr ) % 4 ) ; 
  153.     while ( k > 0 ) {
  154.     
  155.       {
  156.     dvibuf [ dviptr ] = 223 ; 
  157.     incr ( dviptr ) ; 
  158.     if ( dviptr == dvilimit ) 
  159.     dviswap () ; 
  160.       } 
  161.       decr ( k ) ; 
  162.     } 
  163.     if ( dvilimit == halfbuf ) 
  164.     writedvi ( halfbuf , dvibufsize - 1 ) ; 
  165.     if ( dviptr > 0 ) 
  166.     writedvi ( 0 , dviptr - 1 ) ; 
  167.     printnl ( 831 ) ; 
  168.     print ( outputfilename ) ; 
  169.     print ( 284 ) ; 
  170.     printint ( totalpages ) ; 
  171.     print ( 832 ) ; 
  172.     if ( totalpages != 1 ) 
  173.     printchar ( 115 ) ; 
  174.     print ( 833 ) ; 
  175.     printint ( dvioffset + dviptr ) ; 
  176.     print ( 834 ) ; 
  177.     bclose ( dvifile ) ; 
  178.   } 
  179.   if ( logopened ) 
  180.   {
  181.     (void) putc('\n',  logfile );
  182.     aclose ( logfile ) ; 
  183.     selector = selector - 2 ; 
  184.     if ( selector == 17 ) 
  185.     {
  186.       printnl ( 1266 ) ; 
  187.       print ( logname ) ; 
  188.       printchar ( 46 ) ; 
  189.     } 
  190.   } 
  191.   println () ; 
  192.   if ( ( editnamestart != 0 ) && ( interaction > 0 ) ) 
  193.   calledit ( strpool , editnamestart , editnamelength , editline ) ; 
  194. } 
  195. #ifdef DEBUG
  196. void debughelp ( ) 
  197. {/* 888 10 */ debughelp_regmem 
  198.   integer k, l, m, n  ; 
  199.   while ( true ) {
  200.       
  201.     wakeupterminal () ; 
  202.     printnl ( 1275 ) ; 
  203.     flush ( stdout ) ; 
  204.     read ( stdin , m ) ; 
  205.     if ( m < 0 ) 
  206.     return ; 
  207.     else if ( m == 0 ) 
  208.     dumpcore () ; 
  209.     else {
  210.     
  211.       read ( stdin , n ) ; 
  212.       switch ( m ) 
  213.       {case 1 : 
  214.     printword ( mem [ n ] ) ; 
  215.     break ; 
  216.       case 2 : 
  217.     printint ( mem [ n ] .hh .v.LH ) ; 
  218.     break ; 
  219.       case 3 : 
  220.     printint ( mem [ n ] .hh .v.RH ) ; 
  221.     break ; 
  222.       case 4 : 
  223.     printword ( eqtb [ n ] ) ; 
  224.     break ; 
  225.       case 5 : 
  226.     printword ( fontinfo [ n ] ) ; 
  227.     break ; 
  228.       case 6 : 
  229.     printword ( savestack [ n ] ) ; 
  230.     break ; 
  231.       case 7 : 
  232.     showbox ( n ) ; 
  233.     break ; 
  234.       case 8 : 
  235.     {
  236.       breadthmax = 10000 ; 
  237.       depththreshold = poolsize - poolptr - 10 ; 
  238.       shownodelist ( n ) ; 
  239.     } 
  240.     break ; 
  241.       case 9 : 
  242.     showtokenlist ( n , 0 , 1000 ) ; 
  243.     break ; 
  244.       case 10 : 
  245.     print ( n ) ; 
  246.     break ; 
  247.       case 11 : 
  248.     checkmem ( n > 0 ) ; 
  249.     break ; 
  250.       case 12 : 
  251.     searchmem ( n ) ; 
  252.     break ; 
  253.       case 13 : 
  254.     {
  255.       read ( stdin , l ) ; 
  256.       printcmdchr ( n , l ) ; 
  257.     } 
  258.     break ; 
  259.       case 14 : 
  260.     {register integer for_end; k = 0 ; for_end = n ; if ( k <= for_end) 
  261.     do 
  262.       print ( buffer [ k ] ) ; 
  263.     while ( k++ < for_end ) ; } 
  264.     break ; 
  265.       case 15 : 
  266.     {
  267.       fontinshortdisplay = 0 ; 
  268.       shortdisplay ( n ) ; 
  269.     } 
  270.     break ; 
  271.       case 16 : 
  272.     panicking = ! panicking ; 
  273.     break ; 
  274.     default: 
  275.     print ( 63 ) ; 
  276.     break ; 
  277.       } 
  278.     } 
  279.   } 
  280. } 
  281. #endif /* DEBUG */
  282.